home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / biz / dopus / XPKdc.lha / XPKdc / XPKdc_xfd.dopus5 < prev    next >
Text File  |  1998-02-03  |  945b  |  57 lines
  1. /*
  2.  $VER: XPKdc_xfd.dopus5 1.0 (02.02.98)
  3.  Ecrit par / written by
  4.  Fabien Conus
  5.  Utiliser des fichiers XPK comme des fichiers normaux /
  6.  To use XPK-packed files as if they where normal files
  7.  Appelé par: / Call as
  8.  <AREXX>DOpus5:ARexx/XPKdc_xfd.dopus5 {s} {o}
  9. */
  10.  
  11. options results
  12. options failat 99
  13. parse arg '"' chemin '"' nom
  14.  
  15. if Show("P","DOPUS.1") then
  16.  address "DOPUS.1"
  17. Else Do
  18.  exit
  19.  end
  20.  
  21. dopus version
  22. If ( result='RESULT' | translate(result,'.',' ') < 5.1218 ) then do
  23.         dopus request '"Ce script nécessite DOpus v5.5 ou plus/Needs DOpus v5.5 or more" OK'
  24.  exit
  25.  end
  26.  
  27. nom=strip(nom)
  28. nom=strip(nom,'L','"')
  29.  
  30. file='"'chemin''nom
  31.  
  32. dopus front
  33. address command 'c:xfddecrunch 'file' t:' FORCE
  34. command wait doubleclick '"t:'nom''
  35. address command wait
  36.  
  37. effacement:
  38.  
  39. address command 'delete "t:'nom' quiet'
  40.  
  41. signal erreur
  42.  
  43. exit
  44.  
  45. erreur:
  46. say RC
  47. if RC=20 then do
  48.     address command 'delete "t:'nom' quiet'
  49.     Call effacement
  50. end
  51.  
  52. exit
  53.  
  54.  
  55.  
  56.  
  57.